From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 2 Mar 2024 08:43:14 +0000 (-0500)
Subject: Merge from origin/emacs-29
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2377
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=170c6557922dad7e6e9bc0d6dadf6c080108fd42;p=emacs.git

Merge from origin/emacs-29

ae80192d97b ; * src/buffer.c (Fmake_indirect_buffer): Doc fix.
2549eabc97f Fix typos in vnvni.el.
647cecc853e ; * lisp/vc/vc.el (vc-clone): Fix wording of doc string.
383ccf6d51f Avoid assertion violations in bidi.c
b7cef701cb5 * lisp/files.el (hack-one-local-variable): Use `set-auto-...
05308001759 Fix infinite recursion in gdb-mi.el
---

170c6557922dad7e6e9bc0d6dadf6c080108fd42
diff --cc lisp/vc/vc.el
index 3cd17276fa4,25540406b4e..f26e5cc751d
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@@ -3801,12 -3676,18 +3801,17 @@@ to provide the `find-revision' operatio
    (vc-call-backend (vc-backend buffer-file-name) 'check-headers))
  
  (defun vc-clone (remote &optional backend directory rev)
-   "Use BACKEND to clone REMOTE into DIRECTORY.
- If successful, returns the string with the directory of the
- checkout.  If BACKEND is nil, iterate through every known backend
- in `vc-handled-backends' until one succeeds.  If REV is non-nil,
- it indicates a specific revision to check out."
+   "Clone repository REMOTE using version-control BACKEND, into DIRECTORY.
+ If successful, return the string with the directory of the checkout;
+ otherwise return nil.
+ REMOTE should be a string, the URL of the remote repository or the name
+ of a directory (if the repository is local).
+ If DIRECTORY is nil or omitted, it defaults to `default-directory'.
+ If BACKEND is nil or omitted, the function iterates through every known
+ backend in `vc-handled-backends' until one succeeds to clone REMOTE.
+ If REV is non-nil, it indicates a specific revision to check out after
+ cloning; the syntax of REV depends on what BACKEND accepts."
 -  (unless directory
 -    (setq directory default-directory))
 +  (setq directory (expand-file-name (or directory default-directory)))
    (if backend
        (progn
          (unless (memq backend vc-handled-backends)